inherited FCadBlocoEtapa: TFCadBlocoEtapa
  Left = 704
  Top = 343
  Width = 778
  Height = 526
  Caption = 'Modelo'
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  object lbl1: TLabel [4]
    Left = 16
    Top = 104
    Width = 147
    Height = 13
    Caption = 'EMPBLOETPVLMAODEOBRA'
    FocusControl = dbedtEMPBLOETPVLMAODEOBRA
  end
  object lbl2: TLabel [5]
    Left = 296
    Top = 104
    Width = 127
    Height = 13
    Caption = 'EMPBLOETPDTPREVFIM'
    FocusControl = dbedtEMPBLOETPDTPREVFIM
  end
  object lbl3: TLabel [6]
    Left = 168
    Top = 104
    Width = 141
    Height = 13
    Caption = 'EMPBLOETPDTPREVINICIO'
    FocusControl = dbedtEMPBLOETPDTPREVINICIO
  end
  object lbl4: TLabel [7]
    Left = 16
    Top = 56
    Width = 127
    Height = 13
    Caption = 'EMPBLOETPDESCRICAO'
    FocusControl = dbedtEMPBLOETPDESCRICAO
  end
  object lbl5: TLabel [8]
    Left = 16
    Top = 16
    Width = 76
    Height = 13
    Caption = 'EMPBLOETPID'
    FocusControl = dbedtEMPBLOETPID
  end
  inherited BtCancelar: TBitBtn
    Left = 591
    Width = 79
    Height = 30
    TabOrder = 5
  end
  inherited BtGravar: TBitBtn
    Left = 508
    Top = 3
    Width = 79
    Height = 30
    TabOrder = 4
  end
  inherited BtExcluir: TBitBtn
    Left = 671
    Top = 3
    Width = 79
    Height = 30
    TabOrder = 6
  end
  object dbedtEMPBLOETPVLMAODEOBRA: TDBEdit [12]
    Left = 16
    Top = 120
    Width = 134
    Height = 21
    DataField = 'EMPBLOETPVLMAODEOBRA'
    DataSource = ds1
    TabOrder = 1
  end
  object dbedtEMPBLOETPDTPREVFIM: TDBEdit [13]
    Left = 296
    Top = 120
    Width = 97
    Height = 21
    DataField = 'EMPBLOETPDTPREVFIM'
    DataSource = ds1
    TabOrder = 3
  end
  object dbedtEMPBLOETPDTPREVINICIO: TDBEdit [14]
    Left = 168
    Top = 120
    Width = 105
    Height = 21
    DataField = 'EMPBLOETPDTPREVINICIO'
    DataSource = ds1
    TabOrder = 2
  end
  object dbedtEMPBLOETPDESCRICAO: TDBEdit [15]
    Left = 16
    Top = 72
    Width = 708
    Height = 21
    DataField = 'EMPBLOETPDESCRICAO'
    DataSource = ds1
    TabOrder = 0
  end
  object dbedtEMPBLOETPID: TDBEdit [16]
    Left = 16
    Top = 32
    Width = 134
    Height = 21
    DataField = 'EMPBLOETPID'
    DataSource = ds1
    ReadOnly = True
    TabOrder = 7
  end
  object dbgrdblocoetapamaterial: TDBGrid [17]
    Left = 8
    Top = 176
    Width = 745
    Height = 305
    DataSource = dsblocoetapainsumo
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 8
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnDblClick = dbgrdblocoetapamaterialDblClick
    OnKeyDown = dbgrdblocoetapamaterialKeyDown
    Columns = <
      item
        Expanded = False
        FieldName = 'IDINSUMO'
        Title.Caption = 'C'#243'd. Insumo'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'EMPBLOETPID'
        Visible = False
      end
      item
        Expanded = False
        FieldName = 'EMPBLOID'
        Visible = False
      end
      item
        Expanded = False
        FieldName = 'EMPREENDID'
        Visible = False
      end
      item
        Expanded = False
        FieldName = 'DESCRICAOINSUMO'
        Title.Caption = 'Descri'#231#227'o do Insumo'
        Width = 550
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'QTDINSUMO'
        Title.Caption = 'Quantidade'
        Visible = True
      end>
  end
  object Ppnl12: TPanel [18]
    Left = 8
    Top = 154
    Width = 745
    Height = 17
    Anchors = [akLeft, akTop, akRight]
    Caption = 'Insumos'
    Color = clActiveCaption
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 9
  end
  inherited qFilha: TQuery
    BeforeEdit = qFilhaBeforeEdit
    AfterPost = qFilhaAfterPost
    AfterScroll = qFilhaAfterScroll
    SQL.Strings = (
      'SELECT * FROM EMPREENDBLOCOETAPA WHERE 1=-1')
    Left = 42
    object fltfldFilhaEMPBLOETPVLMAODEOBRA: TFloatField
      FieldName = 'EMPBLOETPVLMAODEOBRA'
      Origin = '"BDSISTEMA.FDB".EMPREENDBLOCOETAPA.EMPBLOETPVLMAODEOBRA'
      currency = True
    end
    object dtmfldFilhaEMPBLOETPDTPREVFIM: TDateTimeField
      FieldName = 'EMPBLOETPDTPREVFIM'
      Origin = '"BDSISTEMA.FDB".EMPREENDBLOCOETAPA.EMPBLOETPDTPREVFIM'
      EditMask = '99/99/9999;1;_'
    end
    object dtmfldFilhaEMPBLOETPDTPREVINICIO: TDateTimeField
      FieldName = 'EMPBLOETPDTPREVINICIO'
      Origin = '"BDSISTEMA.FDB".EMPREENDBLOCOETAPA.EMPBLOETPDTPREVINICIO'
      EditMask = '99/99/9999;1;_'
    end
    object strngfldFilhaEMPBLOETPDESCRICAO: TStringField
      FieldName = 'EMPBLOETPDESCRICAO'
      Origin = '"BDSISTEMA.FDB".EMPREENDBLOCOETAPA.EMPBLOETPDESCRICAO'
      Size = 100
    end
    object intgrfldFilhaEMPBLOETPID: TIntegerField
      FieldName = 'EMPBLOETPID'
      Origin = '"BDSISTEMA.FDB".EMPREENDBLOCOETAPA.EMPBLOETPID'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object intgrfldFilhaEMPBLOID: TIntegerField
      FieldName = 'EMPBLOID'
      Origin = '"BDSISTEMA.FDB".EMPREENDBLOCOETAPA.EMPBLOID'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object intgrfldFilhaEMPREENDID: TIntegerField
      FieldName = 'EMPREENDID'
      Origin = '"BDSISTEMA.FDB".EMPREENDBLOCOETAPA.EMPREENDID'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
  end
  inherited qGenerica: TQuery
    Left = 452
    Top = 3
  end
  object ds1: TDataSource
    DataSet = qFilha
    Left = 80
    Top = 38
  end
  object Qblocoetapainsumo: TQuery
    DatabaseName = 'BDSistema.FDB'
    SQL.Strings = (
      
        'SELECT A.*, I.DESCRICAOINSUMO FROM EMPREENDBLOCOETAPAINSUMO A, I' +
        'NSUMO I'
      'WHERE '
      'I.IDINSUMO = A.IDINSUMO'
      'AND 1=-1')
    Left = 352
    Top = 296
    object intgrfldQblocoetapamaterialIDINSUMO: TIntegerField
      FieldName = 'IDINSUMO'
      Origin = '"BDSISTEMA.FDB".EMPREENDBLOCOETAPAINSUMO.IDINSUMO'
    end
    object intgrfldQblocoetapamaterialEMPBLOETPID: TIntegerField
      FieldName = 'EMPBLOETPID'
      Origin = '"BDSISTEMA.FDB".EMPREENDBLOCOETAPAINSUMO.EMPBLOETPID'
    end
    object intgrfldQblocoetapamaterialEMPBLOID: TIntegerField
      FieldName = 'EMPBLOID'
      Origin = '"BDSISTEMA.FDB".EMPREENDBLOCOETAPAINSUMO.EMPBLOID'
    end
    object intgrfldQblocoetapamaterialEMPREENDID: TIntegerField
      FieldName = 'EMPREENDID'
      Origin = '"BDSISTEMA.FDB".EMPREENDBLOCOETAPAINSUMO.EMPREENDID'
    end
    object QblocoetapainsumoDESCRICAOINSUMO: TStringField
      FieldName = 'DESCRICAOINSUMO'
      Origin = '"BDSISTEMA.FDB".INSUMO.DESCRICAOINSUMO'
      Size = 150
    end
    object fltfldQblocoetapainsumoQTDINSUMO: TFloatField
      FieldName = 'QTDINSUMO'
      Origin = '"BDSISTEMA.FDB".EMPREENDBLOCOETAPAINSUMO.QTDINSUMO'
    end
  end
  object dsblocoetapainsumo: TDataSource
    DataSet = Qblocoetapainsumo
    Left = 312
    Top = 296
  end
end
